home *** CD-ROM | disk | FTP | other *** search
/ ASP Advantage 1994 2nd Q2 / The Association of Shareware Professionals - The Official ASP Advantage (2nd Quarter)(1994).bin / files / progming / bt / checkbk.bas < prev    next >
Encoding:
BASIC Source File  |  1992-10-05  |  979 b   |  27 lines
  1. 10 ' checkbk.bas
  2. 20 ' a simple check book balancing program
  3. 30 ' copyright 1987, 1992  s m estvanik
  4. 40 '
  5. 50 CLS
  6. 60 PRINT "Check Book Balancing Program"
  7. 70 PRINT
  8. 80 INPUT "What is your opening balance";BALANCE
  9. 90 PRINT
  10. 95 PRINT "Next transaction? (D/eposit, C/heck, Q/uit)"
  11. 100 T$=INPUT$(1)
  12. 110 IF T$ <> "D" AND T$<> "d" GOTO 210    ' is this a deposit?
  13. 120    INPUT "Amount of deposit";DEPOSIT
  14. 130    BALANCE = BALANCE + DEPOSIT        ' add to balance
  15. 140    PRINT USING "New balance is $#####.##";BALANCE
  16. 150       GOTO 90
  17. 210 IF T$ <> "C" AND T$<> "c" GOTO 300    ' is this a check?
  18. 220    INPUT "Amount of check";CHECK
  19. 230    BALANCE = BALANCE - CHECK          ' subtract from balance
  20. 240    PRINT USING "New balance is $#####.##";BALANCE
  21. 250       GOTO 90
  22. 300 IF T$ <> "Q" AND T$<> "q" GOTO 90    ' do they want to quit?
  23. 400 PRINT            ' we're done, so show the final balance
  24. 410 PRINT USING "Final balance is $#####.##";BALANCE   
  25. 430 END
  26.  
  27.